FontViewer
Font Viewer
Form1+
Label1
&Font
Label2
&Size
Label3
&Color
FontList
SizeList
	ColorList
Frame1
&Attributes
CkBold
ckStrikeThrough
Strikethrough
ckItalic
Italic
ckUnderline
	Underline
Frame2
&Display Text
SingleCharSelect
SingleCharValue
DisplayText
Standard
DisplayText
Custom
SingleChar
cmdQuit
Text1
Form_Click
@	Form_Load
Screen
	FontCount
FontList
FontsJ
Combo1
Form1
Label1B
Frame1
Check1
Check2)
Check3
Check4	
Check5z
Label2
Combo2
Label3s
SizeList:
	ColorListI
Picture1
Textr
	ListIndex
FontList_Change
Font]
SizeList_Changeg
FontSizeD
Command1
Command2
Command1_Click
Command2_ClickX
FontView
FontViewer
bView
cView
	cmdCancel
cmdViewJ
cmdView_Click:
Check1_Click
Check2_Click
cmdCancel_Click
Unload
FontName
CurrentX
CurrentY
SizeList_Click
FontList_Click-
AutoRedraw
Picture
	OptCheck1
ckBold7
ckItalic
ckStrikeThrough=
ckUnderline3
	ForeColor
ColorList_ClickI
ckBold_Click
FontBoldi
ckItalic_ClickW
FontItalic
ckStrikeThrough_Clickl
FontStrikethrough
ckUnderline_ClickI
FontUnderline
FontStrikethru?
Height
Test1~
Text1
Text2 
ScaleHeight
Test2
ColorList_Change)
Frame1_DragDrop"
Label1_DragDrop
SizeList_DragDrop
Text1_DragDrop
TextString1&
TextString2	
TextString
Frame2
Option1S
DisplayTexte
DisplayText_Click
Index
Enabled
CustomText.
CustText
DisplayFlag6
TRUEL
FALSE
ViewText
Value
SelStart
	Sellength
Label1_Click
Text1_Change
cmdOK
Text1_GotFocus{
Form_UnloadP
Cancel
CHECKED
cmdView_GotFocus
ShowText
Text1_LostFocus
Form_LostFocus
GetDisplayText
ShowDisplayText
DisplayTextThenl
Text2Display
GetDisplayText16
Text2isplay
	THenText1
cmdCancel_GotFocus
cmdQuit
cmdQuit_Click?
Form_GotFocus
Text1_KeyPress
KeyAscii
Text1_KeyUp
KeyCode
Shift
SizeList_LostFocusg
CkBold_LostFocus7
intro
Label7E
Timer1
Label4
Label5q
Label6
ckItalic_KeyPress
Text1_KeyDown
DefaultFontNumber
DefaultFontIndex
	ListCount
width
OrigSize
SingleChar_Changed
SingleCharSelect_Change
SelectChar
SingleChar
Caption
SingleCharSelectw
SingleCharValue
SingleCharValue_Change
SingleCharValue_LostFocus8	
ChangeFlag
SingleChar_Click
FALSOE
OldValue)	
OldValueText
Label3_Click
ValChangeFlag
CharChangeFlat
OldCharText
CharChangeFlag
Form_Load
 Initialize form position
 Initialize font listi
 Set default font-
Initialize font size listL
 Initialize colors
0 - Black"
1 - Blue
2 - Green"
3 - Cyan
4 - Red"
5 - Magenta"
6 - Brown"
7 - White"
8 - Gray
9 - Light Blue
10 - Light Green
11 - Light Cyan"
12 - Light Red
13 - Light Magenta
14 - Yellow"
15 - Bright White"
 Initialize font attributes OFFe
Initialize Option buttonst
ckBold_Click
ckItalic_Click
 Toggle Italic
ckStrikeThrough_Click
 Toggle Strikethru
ckUnderline_Click
 Toggle Underlinee
ColorList_Click
SizeList_Click
FontList_Click
DisplayText_Click
Form_Unload
Text1_LostFocus
GetDisplayText
 Make the standard text to display
 Pad with space for Italic
ShowDisplayText
 Get the font name
 Get the font size
 Get the foreground colord
cmdQuit_Click
 Unload main forma
Text1_GotFocus
Text1_KeyPress
SingleCharSelect_Change
SingleCharValue_Change
SingleChar_Change